;;-------------------------------aragom
[@ChnageDragonSword]
{

#SAY
ʲô? \\
;;ʹòƬ()1,000 , 100,000<ί/@MakeItemDragonSword(,1000)>\
;;ʹòƬ()1,000 , 100,000<ί/@MakeItemDragonSword(,1000)>\
;;ʹòƬ()1,000 , 100,000<ί/@MakeItemDragonSword(,1000)>\
;;ʹòƬ()1,000 , 100,000<ί/@MakeItemDragonSword(,1000)>\
;;ʹòƬ(ʥ)1,000 , 100,000<ί/@MakeItemDragonSword(ʥ,1000)>\
;;ʹòƬ()1,000 , 100,000<ί/@MakeItemDragonSword(,1000)>\
;;ʹòƬ(Ӱ)1,000 , 100,000<ί/@MakeItemDragonSword(Ӱ,1000)>\
<  /@exit>

[@MakeItemDragonSword()]
#ACT

Mov A3 %ARG(1)
Mov D1 %ARG(2)
Mov A1 "Ƭ"
Addstr A1 ""
Addstr A1 %A3
Addstr A1 ""
mov A2 ""
Addstr A2 ""
Addstr A2 %A3
Addstr A2 ""

#IF
checkitem %A1 %D1

#SAY
<$OUTPUT(A2)>ˡ\\
<  /@exit>

#ACT
take %A1 %D1
Give %A2 1

#ELSESAY
<$OUTPUT(A1)>Ҫ<$OUTPUT(D1)>... \\
<  /@exit>

}
;;-------------------------------aragom